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BLACKJACK FOR FOCAL-1 1 
DECUS Program Library Write-up DECUS No. 11-5 

ABSTRACT 

This program deals random Blackjack hands to itself (the dealer) and the user (the player). 
Hit "Y" if you want a hit, "N" if not. Utility functions are provided to deal and print 
card values. 



C:FOCAL-11,TEST 

50.05 T '."WELCOME TO BLACKJACK'. "'. 

50.10 E 

50.20 S H=5 

50.30 T '.'." PLAYER DEALER"'. 

50.40 S Z=FNEW(FNEW(6,52),53) 

50.50 S Z=FNEW(1 / 52);T " XXX "'.;D 50.4 

50.55 S Z=? ?FNEW(FNEW(1 ,52),53) 

50.60 S A=FNEW(6 / 51) 

50.70 I (FNEW(1, 51 ))50. 76, 50.75,50.80 

50.75 T "DEALER WINS'. XXX WAS ";S Z=FNEW(C(1),53);G 50.1 

50.76 I (A)50. 75,50.85,50. 85 
50.80 I (A)50.75,50.85,50.90 
50.85 T "PLAYER WINS'."'.; G 50.1 

50.90 A "HIT? ";S A=FCHR(-1)-192-0Y;T '.;l (A)50.92;D 50A 

50.92 I (F NEW(1, 51 )-]8)50. 55; I (A)50.94;G 50. 6 

50.94 I (FNEW(1,51)-FNEW(6,51))50.85;G 50.75 

5\. 05 C-SCORE COUNT INDEX 

51.10 S &1=0; S &2=0; S Z-&-1 

51 .20 S Z=Z+1;I (Z-&-5)51 .3;l (&1-22)51 .5;S &=-l;R 

51.30 I (C(Z))8,51.2;S &2=&2+l 

51 .35 I (C(Z)-37)51 .37;S &1=&1+10;G 51 .2 

51.37 S &1=&1+ 1+ FITR<(C(Z)-1)/4>;G51.2 

51.50 I (&2-5)51.6;G51.7 

51.60 S Z=Z-1;I (Z-&)51.8; 

51.61 I (FITR<(C(Z)-1)/4>)51.6,51.62,51.6 

51.62 I (&1-1 1)51 .6,51. 7,51 .6 
5\.70 S &=0;R 

51.80 S &=&1;R 



52.05 


C-DEAL 


52.10 


S Z=FITR(53*(FRAN( )));IF (2)8,52.1; 


52.20 


S &1=1 


52.30 


1 (Z-C(&1))52.4 / 52.1; 


52.40 


S &1=&1+1;I(&1-H)52.3; 


52.50 


S &1=& 


52.60 


1 (C(&1))8,52.7;S&1=&1+1;G52.6 


52.70 


S C(&1)=Z;S&=Z 


53.01 


S Z=53.11+FITR((&-l)/4)/l00;DZ;T "OF 


53.02 


S Z=53.24+ C &-FITR(<&-l>/4)Mrl 3/100;D Z;T '.;R 


53.11 


T "ACE 


53.12 


T "DEUCE 


53.13 


T "THREE 


53.14 


T "FOUR 


53.15 


T "FIVE 


53.16 


T "SIX 


53.17 


T "SEVEN 


53.18 


T "EfGHT 


53.19 


T "NINE 


53.20 


T "TEN 


53.21 


T "JACK 


53.22 


T "QUEEN 


53.23 


T "KING 


53.24 


T "CLUBS 


53.25 


T "DIAMONDS 


53.26 


T "HEARTS 


53.27 


T "SPADES 



